VB6 -- رنگ ها در ویژوال بیسیک


عضو شوید


نام کاربری
رمز عبور

:: فراموشی رمز عبور؟

عضویت سریع

نام کاربری
رمز عبور
تکرار رمز
ایمیل
کد تصویری
براي اطلاع از آپيدت شدن وبلاگ در خبرنامه وبلاگ عضو شويد تا جديدترين مطالب به ايميل شما ارسال شود



تبادل لینک هوشمند
برای تبادل لینک  ابتدا ما را با عنوان آموزش برنامه نويسي و آدرس cpu-learn.LXB.ir لینک نمایید سپس مشخصات لینک خود را در زیر نوشته . در صورت وجود لینک ما در سایت شما لینکتان به طور خودکار در سایت ما قرار میگیرد.






آمار مطالب

:: کل مطالب : 39
:: کل نظرات : 6

آمار کاربران

:: افراد آنلاین : 1
:: تعداد اعضا : 5

کاربران آنلاین


آمار بازدید

:: بازدید امروز : 58
:: باردید دیروز : 1
:: بازدید هفته : 60
:: بازدید ماه : 243
:: بازدید سال : 4111
:: بازدید کلی : 36473

RSS

Powered By
loxblog.Com

وبلاگ تخصصي آموزش برنامه نويسي تمام زبان هاي كامپيوتر

VB6 -- رنگ ها در ویژوال بیسیک
دو شنبه ساعت | بازدید : 4959 | نوشته ‌شده به دست ياسر | ( نظرات )

رنگ ها باعث جذابیت و زیبایی تصاویر می شوند . در ویژوال بیسیک به چند طریق می توان از رنگ ها استفاده کرد که عبارتند از :

1 – استفاده از ثوابت : ویژوال بیسیک ثوابتی برای رنگ ها دارد که در جدول زیر  آمده اند :

مقدار

رنگ

ثابت

0

سیاه

Vbblack

1

آبی

Vbblue

2

لاجوردی

Vbcyan

3

سبز

Vbgreen

4

زرد

Vbyellow

5

سفید

Vbwhite

6

قرمز

Vbred

7

ارغوانی

Vbmagenta

 

2 – استفاده از تابع RGB : با استفاده از این تابع می توان یک رنگ را تولید کرد . تابع  RGB به صورت زیر به کار می رود :

RGB  (Red , Green , Blue)

پارامتر Red ، شدت رنگ قرم (درصد مقدار رنگ قرمر) ، پارامتر Green ، شدت رنگ سبز و پارامتر Blue شدت رنگ آبی را تعیین می کند . هر یک از پارامتر های Red , Green , Blue می توانند مقادیر 0 تا 256 را بپذیرند . پس در ویژوال بیسیک 256 * 256 * 256  (حدود 16 میلیون رنگ) را می تواند ایجاد کرد . به عنوان مثال ، دستورات زیر را در نظر بگیرید :

Dim  Color1  As  Long

Color1 = Rgb (225 , 100 , 170)

Form1 . Forecolor = Color1

این دستوارت ، رنگی را ایجاد کرده در خاصیت Forecolor فرم قرار می دهد.

3 – استفاده از تابع Qbcolor : برای تولید رنگ استفاده می شود و به صورت زیر به کار می رود :

Qbcolor  (Qbcolor)

پارامتر Qbcolor عددی صحیح بین 0 تا 15 می باشد . لیست رنگ هاییی که تابع Qbcolor می تواند ایجاد کند در جدول زیر آمده است . به عنوان مثال ، دستورات زیر را در نظر بگیرید :

 

عدد

رنگ

0

سیاه

1

آّبی

2

سبز

3

لاجوردی

4

قرمز

5

ارغوانی

6

زرد

7

سفید

8

خاکستری

9

آبی روشن

10

سبز روشن

11

لاجوردی روشن

12

قرمز روشن

13

ارغوانی روشن

14

زرد روشن

15

سفید روشن (با شدت بالا)

 

 

Private  Sub  Squaredraw_Click ()

Form1 . Cls

Form1 . Scaleheight = 10

For I = 0 To 15

Form1 . Line (0 , I) – ((Form1 . Scalewidth) , I + 1) , Qbcolor (I) ,Bf

Next I

End  Sub

این دستورات ، فرم را به 16 مستطیل رنگی تقسیم می کند (برای ایجاد رنگ ها از تابع Qbcolor استفاده شده است).

متد Point : رنگ نطقه ای از فرم یا عنصر Picturebox را بر می گرداند و به صورت زیر به کار می رود :

Point  (X , Y) . نام عنصر

(X , Y) مختصات نقطه ای از فرم می باشد که رنگ آن باید تعیین گردد . به عنوان مثال ، دستو زیر رنگ نقطه ( 100 , 100)) را در متغیر Colorxy قرار می دهد :

Dim Colorxy As Long

Colorxy = Form1 . Point (100 , 100)





:: موضوعات مرتبط: ویژوال بیسیک 6 (آموزشی) , ,
|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0
می توانید دیدگاه خود را بنویسید


نام
آدرس ایمیل
وب سایت/بلاگ
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

آپلود عکس دلخواه: